home *** CD-ROM | disk | FTP | other *** search
- object SelectAddresses: TSelectAddresses
- Left = 303
- Top = 153
- Width = 385
- Height = 405
- Caption = 'InvisiMail Addresses'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnClose = FormClose
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 0
- Width = 141
- Height = 13
- Caption = 'Type Name or Select from list:'
- end
- object Label2: TLabel
- Left = 208
- Top = 24
- Width = 96
- Height = 13
- Caption = 'Message Recipients'
- end
- object SelectAddr: TEdit
- Left = 8
- Top = 16
- Width = 129
- Height = 21
- TabOrder = 0
- OnChange = SelectAddrChange
- end
- object ToAddr: TButton
- Left = 160
- Top = 48
- Width = 45
- Height = 25
- Caption = 'TO: >'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- OnClick = ToAddrClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 336
- Width = 377
- Height = 42
- Align = alBottom
- TabOrder = 2
- object OKAddr: TButton
- Left = 184
- Top = 8
- Width = 75
- Height = 25
- Caption = 'OK'
- TabOrder = 0
- OnClick = OKAddrClick
- end
- object CanAddr: TButton
- Left = 280
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Cancel'
- TabOrder = 1
- OnClick = CanAddrClick
- end
- object Button1: TButton
- Left = 8
- Top = 24
- Width = 145
- Height = 17
- Caption = 'Get Addresses'
- TabOrder = 2
- OnClick = Button1Click
- end
- object Progress: TPanel
- Left = 8
- Top = 4
- Width = 145
- Height = 17
- TabOrder = 3
- end
- end
- object CCAddr: TButton
- Left = 160
- Top = 144
- Width = 45
- Height = 25
- Caption = 'CC:>'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- OnClick = CCAddrClick
- end
- object BCCAddr: TButton
- Left = 160
- Top = 240
- Width = 45
- Height = 25
- Caption = 'BCC:>'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- OnClick = BCCAddrClick
- end
- object ToList: TListBox
- Left = 208
- Top = 48
- Width = 161
- Height = 90
- ItemHeight = 13
- TabOrder = 5
- OnKeyDown = ToListKeyDown
- end
- object CCList: TListBox
- Left = 208
- Top = 144
- Width = 161
- Height = 90
- ItemHeight = 13
- TabOrder = 6
- OnKeyDown = ToListKeyDown
- end
- object BCCList: TListBox
- Left = 208
- Top = 240
- Width = 161
- Height = 90
- ItemHeight = 13
- TabOrder = 7
- OnKeyDown = ToListKeyDown
- end
- object SelectAddrs: TListBox
- Left = 0
- Top = 48
- Width = 153
- Height = 281
- ItemHeight = 13
- PopupMenu = PopupMenu1
- Sorted = True
- TabOrder = 8
- OnKeyDown = ToListKeyDown
- OnMouseDown = SelectAddrsMouseDown
- end
- object FileFind1: TFileFind
- MatchCaseSensitive = False
- MatchEnabled = False
- ThreadPriority = tpIdle
- Left = 328
- Top = 8
- end
- object OPenFile: TOpenDialog
- FileEditStyle = fsEdit
- Filter = 'Any File|*.*'
- Title = 'Open File to extract Email Addresses'
- Left = 168
- Top = 16
- end
- object PopupMenu1: TPopupMenu
- Left = 168
- Top = 296
- object RemoveFromList1: TMenuItem
- Caption = 'Remove From List'
- ShortCut = 0
- OnClick = RemoveFromList1Click
- end
- end
- end
-